﻿Public Class Autenticador
    Private s_Servidor As String

    
    Public Property Servidor() As String
        Get
            Return s_Servidor
        End Get
        Set(ByVal value As String)
            s_Servidor = New String("" & value & If(value.EndsWith("/"), "", "/")).ToString.Trim
        End Set
    End Property
    Public Property Empresa() As String
    Public Property Usuario() As String
    Public Property Senha() As String
    Public Property Unidade() As String
    Public Property Recurso() As String
    Public Property Autenticado() As Boolean

    Public Sub New(
                       ByVal Servidor As String,
                       ByVal Empresa As String,
                       ByVal Usuario As String,
                       ByVal Senha As String,
                       ByVal Unidade As String,
                       ByVal Recurso As String)

        Me.Servidor = Servidor
        Me.Empresa = Empresa
        Me.Usuario = Usuario
        Me.Senha = Senha
        Me.Unidade = Unidade
        Me.Recurso = Recurso

        Call Valida()
    End Sub
    Public Sub Valida()
        Utils.Validador.Validar(String.IsNullOrEmpty(Servidor), Mensagens.Autenticador.Servidor_Nulo.Completa)
        Utils.Validador.Validar(String.IsNullOrEmpty(Empresa), Mensagens.Autenticador.Empresa_Nulo.Completa)
        Utils.Validador.Validar(String.IsNullOrEmpty(Usuario), Mensagens.Autenticador.Usuario_Nulo.Completa)
        Utils.Validador.Validar(String.IsNullOrEmpty(Senha), Mensagens.Autenticador.Senha_Nulo.Completa)
    End Sub
End Class
